﻿Public Class Formulario_Principal

    'Private Sub txt_1_Validating(ByVal sender As System.Object, _
    '                             ByVal e As System.ComponentModel.CancelEventArgs) Handles txt_1.Validating
    '    'Vamos a obligar a que el Textbox NO esté en blanco.
    '    If txt_1.Text = "" Then
    '        MsgBox("No puede quedarse en blanco el campo, rellénelo, por favor.")
    '        txt_1.Focus()

    '    End If

    'End Sub


    Private Sub txt_1_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_1.Validated
        'Vamos a obligar a que el Textbox NO esté en blanco.
        If txt_1.Text = "" Then
            MsgBox("No puede quedarse en blanco el campo, rellénelo, por favor.", , "Cuidado")
            txt_1.Focus()

        End If
        If IsNumeric(txt_1.Text) Then
            MsgBox("Sólo escriba  letras, por favor.", , "Cuidado")
            txt_1.Focus()
        End If
    End Sub

    Private Sub txt_2_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txt_2.Validating
        If Not IsNumeric(txt_2.Text) Then
            MsgBox("Sólo escriba números, por favor.", , "Cuidado")
            txt_2.Focus()
        End If
    End Sub

    Private Sub txt_3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_3.TextChanged
        'If txt_3.char(txt_3.Text.Length - 1) Then
        'End If

    End Sub
End Class
